open(BUFF,"bora_fulllist");
$line=<BUFF>;
while(<BUFF>)
{
	chomp($_);
	@array = split(/\t/,$_);
	#print "$array[0]\t$array[1]\n";
	$hash{$array[0]} = $array[1];
}
open(BUFF,"/data4/bsi/bioinf_int/s106381.borawork/b37_020112/refseq_flatfiles_feb0212/chrBCPOutput/Gene.bcp");
open(WRBUFF,">genes_in_source_but_not_in_BORA");
open(WRBUFF1,">genes_in_source_not_matching_BORA");
print WRBUFF1 "Entrezid\tsource_genesymbol\tBORAgenesymbol\n";
while(<BUFF>)
{
        chomp($_);
        @array = split(/\t/,$_);
        if(exists($hash{$array[1]}))
	{
		 #print WRBUFF1 "$array[1]\t$array[2]\t$hash{$array[1]}\n";
		if($hash{$array[1]} ne $array[2])
		{
			print WRBUFF1 "$array[1]\t$array[2]\t$hash{$array[1]}\n";
		}
	}
	else
	{
		print WRBUFF "$array[1]\t$array[2]\n";
	}
}

